calculate_dielectric_tensor Subroutine

public subroutine calculate_dielectric_tensor(pa)

calculate components of dielectric tensor

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	pa